unit Dock;

interface
Uses
  {$IFDEF MSWINDOWS}
  Controls, Windows, Graphics;
  {$ELSE}
  QControls, QGraphics;
  {$ENDIF}

Type TKlassNewDock = Class(TDragControlObject)

  Bild : TDragImageList;

  Constructor Create( AControl : TControl );
  procedure ShowDragImage; virtual;
  procedure GetDragImage; virtual;
End;

implementation

Uses Klassnew;

Constructor TKlassNewDock.Create( AControl : TControl );
Var Bitmap : TBitmap;
Begin
  Inherited Create( AControl );

  Bitmap := TBitmap.Create;
  Bitmap.LoadFromFile('Abort1.Bmp');

  Bild.CreateSize( 16, 16 ) ;
  Bild.Add( Bitmap, nil );

End;

Procedure TKlassNewDock.ShowDragImage;
Begin
 inherited ShowDragImage;
End;

Procedure TKlassNewDock.GetDragImage;
Begin
 inherited ShowDragImage;
End;

end.
